home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / ShareMailGiftware / Mpeg2anim / MpegCon < prev    next >
Encoding:
Text File  |  2002-11-17  |  1.4 KB  |  50 lines
  1. c:copy c:copy t:copy
  2. t:copy >nil: c:delete T:del
  3. echo "c*N"
  4. Requestfile >env:MPname DRAWER RAM: PATTERN #?.(mpeg|mpg) TITLE="Choose MPEG to convert"
  5. if warn
  6.    echo >env:msg "Operation canceled....!"
  7.    skip end
  8. endif
  9. if not exists $MPname
  10.    echo >env:msg "File does not exist....!"
  11.    skip end
  12. endif
  13. Requestfile >env:MPdest DRAWER SYS: FILE Default.anim5 TITLE="Choose destination path."
  14. if warn
  15.    echo >env:msg "Operation canceled....!"
  16.    skip end
  17. endif
  18. Requestchoice >env:mode "" "Choose output mode" EHB Ham6 Ham8 EHB_scale Ham6_scale Ham8_scale Abort
  19. if $mode eq 0
  20.    echo >env:msg "Operation canceled....!"
  21.    skip end
  22. endif
  23. if val $mode GT 3
  24.    Requestchoice >nil: "" "Once the mpeg is split you will be asked to enter your scale." OK
  25. endif
  26. assign MPT: MPtemp
  27. t:copy >nil: convertMPimage T:cmi
  28. T:del >nil: MPtemp/#?
  29. ripley $MPname save MPtemp/pic%d
  30. ECHO "*N MPEG is split, now converting pics."
  31.  
  32. if val $mode GT 3
  33.    t:CMI noprogress format ILBM24 MPT:pic0.ppm to t:iff
  34.    SmartScale ask t:iff
  35. endif
  36.  
  37. ConPix $mode
  38.  
  39. echo ""
  40. t:del >nil: t:ppm t:iff t:cmi env:FT env:din
  41. list sort name >T:ConPics MPtemp lformat "0 %s%s"
  42. mkanim using T:conpics to $MPdest
  43. T:del >nil: t:conpics MPtemp/#? env:xin env:yin env:xout env:yout
  44. echo >env:msg "Mpeg2anim successfully completed."
  45. lab end
  46. Requestchoice >nil: "" "$msg" OK
  47. t:del >nil: env:msg env:mode env:MP#? t:copy t:del
  48. assign MPT: REMOVE
  49. endcli
  50.